From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Fri, 9 Feb 2024 19:08:51 +0000 (-0500)
Subject: * lisp/subr.el (read-char-from-minibuffer): Fix bug#68995
X-Git-Tag: archive/raspbian/1%30.1+1-3+rpi1^2~14^2~18^2~2614
X-Git-Url: https://dgit.raspbian.org/%22http://www.example.com/cgi/%22/%22http:/www.example.com/cgi/%22?a=commitdiff_plain;h=c4ec6d0472beac2a0cb4f5c8baec79e39dfc410b;p=emacs.git

* lisp/subr.el (read-char-from-minibuffer): Fix bug#68995
---

diff --git a/lisp/subr.el b/lisp/subr.el
index e53ef505522..f41bb34045e 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -3726,10 +3726,10 @@ There is no need to explicitly add `help-char' to CHARS;
          (this-command this-command)
          (result (minibuffer-with-setup-hook
 		     (lambda ()
+		       (setq-local post-self-insert-hook nil)
 		       (add-hook 'post-command-hook
 				 (lambda ()
-				   ;; FIXME: Should we use `<='?
-				   (if (= (1+ (minibuffer-prompt-end))
+				   (if (<= (1+ (minibuffer-prompt-end))
 					  (point-max))
                                        (exit-minibuffer)))
 				 nil 'local))